home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00286.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  493 b   |  19 lines
  1. on mouseUp
  2.   global dayNo, firstMonthlyDay, beginDate, oldstamp
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   cursor(4)
  7.   set x to the clickOn
  8.   if the cursor of sprite x > 200 then
  9.     killcorrection()
  10.     go("Monthly Mucus")
  11.     puppetSprite(7, 1)
  12.     puppetSprite(7, 0)
  13.     set dayNo to x - 25 + firstMonthlyDay
  14.     set oldstamp to getAt(stamp, dayNo)
  15.     put "Choose the best stamp for Day " & dayNo & ": " & GetLongDate(dayNo + beginDate - 1) into field "choose"
  16.   end if
  17.   cursor(0)
  18. end
  19.